home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 9 / Night Owl CD-ROM (NOPV9) (Night Owl Publisher) (1993).ISO / 006a / sb_117_2.zip / STRUCT.117 < prev    next >
Text File  |  1993-02-25  |  39KB  |  1,023 lines
  1. Type
  2.   MsgToIdxRecord = String[35];
  3.   FlagType = Array[1..4] of Byte;
  4.   Msgtxtrecord = String[255];
  5.   Lastreadrecord = Array[1..200] of integer;
  6.  
  7.   LineIdxRec = Record                                 (* SUSERON.BBS *)
  8.                  User:                  MsgToIdxRecord;
  9.                  Attribute,
  10.                  Status:                Byte;
  11.                  Baud:                  Word;
  12.                  City:                  String[25];
  13.                  Infobyte:              byte;
  14.                  ExtraSpace:            Array[1..9] of byte;
  15.                End;
  16.  
  17. (*  Attribute :
  18.  
  19.      Bit 0 = Line in use
  20.          1 = Do not disturb mode
  21.          2 = waiting for call
  22.          3 = disabled from the list
  23.  
  24.     Status (Not bit-mapped) :
  25.  
  26.      Nr  0 = Doing nothing
  27.          1 = Downloading file(s)
  28.          2 = Uploading file(s)
  29.          3 = Reading messages
  30.          4 = Entering message (also onlinemsg)
  31.          5 = Chatting with SysOp
  32.          6 = Using external program, etc...
  33.          7 = Logging on
  34.          8 = using qwk system
  35.          9 = browsing filelist
  36.         10 = In node chat (conference number is in infobyte)
  37. *)
  38.  
  39.   NameIdxRec = Record                                 (* NAMEIDX.BBS *)
  40.                  NameCRC32:            LongInt;
  41.                  AliasCRC32:           LongInt;
  42.                  Attrib:               Byte;
  43.                End;
  44.  
  45.   BoxListRec = Record                                 (* BBSLIST.BBS  *)
  46.                  BBSName:              String[40];
  47.                  Sysopname:            MsgToIdxRecord;
  48.                  Number:               String[15];
  49.                  Baud:                 Word;
  50.                  OpenTimes:            String[11];
  51.                  Net:                  String[15];
  52.                  BBSSoft:              String[10];
  53.                  Other:                String[60];
  54.                  ExtraSpace:           Array[1..150] of byte;
  55.                End;
  56.  
  57.   FLSearchRec  = Record                               (* FLSEARCH.BBS *)
  58.                    Name:               String[60];
  59.                    Directory:          String[79];
  60.                    Security:           Integer;          
  61.                    Flags:              Flagtype;
  62.                    PFilesSec:          Integer;   { Not yet used }
  63.                    PFlags:             Flagtype;  { Not yet used }
  64.                    Attrib:             Byte;
  65.                    Age:                Byte;
  66.                    ListName:           String[67];    (* If begins with *
  67.                                                          character then the
  68.                                                          rest of the string
  69.                                                          shows the upload
  70.                                                          path *)
  71.                    RequiredBPSrate:    Word;
  72.                    ExtraSpace:         Array[1..28] of Byte;
  73.                  End;
  74. (*  Attrib:
  75.  
  76.       Bit 0  : Exclude from template
  77.       Bit 1  : No downloads  { Used in template system only }
  78.       Bit 2  : No uploads    { Used in template system only }
  79.       Bit 3  : No virus check
  80.       Bit 4  : No dupe scan
  81.       Bit 5  : No new files check
  82.       Bit 6-7: Unused
  83.  
  84. *)
  85.  
  86.   DoorRec = record
  87.               Name:       String[35];                 (* DOORCFG.BBS *)
  88.               CmdLine:    String[127];
  89.               Security:   Word;
  90.               Flags:      Flagtype;
  91.               StartTime,
  92.               EndTime:    String[5];
  93.               Active:     Boolean;
  94.               ExtraSpace: Array[1..30] of Byte;
  95.             End;
  96.  
  97.  
  98.   CommentRecord = Record                              (* COMMENT.BBS  *)
  99.                     Txt      : Array[1..2] of String[76];
  100.                     FromName : MsgToIdxRecord;
  101.                     FromCity : String[25];
  102.                     PostTime : String[5];
  103.                     PostDate : String[8];
  104.                   End;
  105.  
  106.   LastCallerRec = Record                              (* CALLERS.BBS *)
  107.                     Name,
  108.                     alias:             MsgToIdxRecord;
  109.                     City:              String[25];
  110.                     Line,
  111.                     Age:               Byte;
  112.                     Baud:              Word;
  113.                     LastDate:          String[8];
  114.                     LogOn,
  115.                     LogOff:            String[5];
  116.                     Attrib:            Byte;
  117.                     Extraspace:        Array[1..30] of byte;
  118.                   End;
  119. (*  Attrib:
  120.  
  121.       Bit 0  : Downloaded
  122.       Bit 1  : Uploaded
  123.       Bit 2  : Read messages
  124.       Bit 3  : Wrote message(s)
  125.       Bit 4  : Paged SysOp
  126.       Bit 5  : New user
  127.       Bit 6  : Used QWK system
  128.       Bit 7  : Unused
  129.  
  130. *)
  131.  
  132. ExtraConfig = Record                                 (* SCONFIG.BBS *)
  133.                  SystemPath,
  134.                  MsgBasePath,
  135.                  TempPath:            String[66];
  136.                  RedirectDevice:      String[12];
  137.                  Resp19200,
  138.                  Resp38400:           String[40];
  139.                  ShowSecurity:        Boolean;
  140.                  ShowPswdAtLogon:     Boolean;
  141.                  BetaCode:            Longint;
  142.                  Unused:              Array[1..200] of boolean;
  143.                  Empty1:              Array[1..284] of byte;
  144.                  AllowCat:            Boolean;
  145.                  Answerboard:         Byte;
  146.                  Use7bitChars:        Boolean;
  147.                  BufferSize:          Word;
  148.                  Empty2:              Array[1..45] of byte;
  149.                  EntryColor:          Byte;
  150.                  FilesBeforeRatio:    Byte;
  151.                  MinSpace:            Word;
  152.                  ClearTemp:           Boolean;
  153.                  Empty3:              Array[1..163] of byte;
  154.                  UseAliasSystem:      Byte;
  155.                  Ansilogon:           Byte; {0 = No,1 = Yes,2 = Auto detect}
  156.                  ExcludeSysOp:        Boolean;
  157.                  Empty4:              Array[1..122] of byte;
  158.                  AltFkeys:            Array[1..10] of string[60];
  159.                  Checkfiles:          Boolean;
  160.                  PasswordBoard:       Byte;
  161.                  Alt_J_Swaptoems:     Boolean;
  162.                  MaxTimeInBank:       Word;
  163.                  NoBirthDayAsk:       Boolean; 
  164.                  MaxDescLines:        Byte;
  165.                  Empty5:              Array[1..45] of byte;
  166.                  FastMailCheck:       Boolean;
  167.                  DefaultColors:       Array[1..10] of byte;
  168.                  Empty6:              Array[1..45] of byte;
  169.                  LinesInSystem:       Byte;
  170.                  CommonDir:           String[79];
  171.                  VersionNumber:       Word;
  172.                  FullScrChatBaud:     Word;
  173.                  PressEnterColor:     Byte;
  174.                  AreaSelectColor:     Array[1..3] of byte;
  175.                  StatusLineColor:     Byte;
  176.                  VirusChkMode:        Byte;
  177.                  WorkPath:            String[79];
  178.                  WatchCDatDos:        Boolean;
  179.                  UseCtrlX:            Boolean;
  180.                  MsgAfterPageBoard:   Byte;
  181.                  SearchAliases:       Boolean;
  182.                  EchoConvert:         Boolean;
  183.                  SwapAtPackers:       Boolean;
  184.                  InternalProtocols:   Byte;
  185.                  { bit 0 : Zmodem
  186.                    bit 1 : Ymodem batch
  187.                    bit 2 : Xmodem
  188.                    bit 3 : Xmodem 1K (Ymodem)
  189.                    bit 4 : Xmodem 1K G
  190.                    bit 5 : Ymodem-g }
  191.                  FirstMenuInSystem:   String[8];
  192.                  ColoredQuoteText:    Boolean;
  193.                  AddUploadersName:    Boolean;
  194.                  DaysUntilExpiration: Word;
  195.                  QWKBBSID:            String[6];
  196.                  QWKDefaultBoard:     Byte;
  197.                  QwkMaxNrToPack:      Integer;
  198.                  StatuslineStr:       Array[1..2] of string[100];
  199.                  Location:            String[40];
  200.                  UsPhoneNrFormat:     Boolean;
  201.                  DlCounterLBracket,
  202.                  DlCounterRBracket:   Char;
  203.                  QWKAllowTagLines:    Byte; {0=no, 1=yes, 2=only local areas}
  204.                  LogonSecLvl:          Word;
  205.                  LogonAge:          Byte;
  206.                  LogonPassword:       String[15];
  207.                  NoGroupMailCheck,
  208.                  NoUserListIntype27:  Boolean;
  209.                  GroupMsgSecLvl:      Word; 
  210.                  AskSex:              Boolean;
  211.                  AskAnsi,                   {0=ask, 1=yes, 2=no}
  212.                  AskMailCheck,              {0=ask, 1=yes, 2=no}
  213.                  AskNewFilesCheck,          {0=ask, 1=yes, 2=no}
  214.                  AskFullScrEditor,          {0=ask, 1=yes, 2=no}
  215.                  AskFullScrViewer,          {0=ask, 1=yes, 2=no}
  216.                  AskPagePause,              {0=ask, 1=yes, 2=no}
  217.                  AskScreenClears:     Byte; {0=ask, 1=yes, 2=no}
  218.                  PageStart:           Array[0..6] of string[5];
  219.                  PageEnd:             Array[0..6] of string[5];
  220.                  UseIEMSI:            Boolean;
  221.                  CapitalizeCity,
  222.                  CapitalizeAlias:     Boolean;
  223.                  VirusScannerCmd:     string[127];
  224.                  NoExtractBeforeScan: Boolean;
  225.                  VirusFoundErrorLvl:  Byte;
  226.                  SysOpsFscrChatClr,
  227.                  UsersFscrChatClr:    Byte;
  228.                  ScanForDupePhones:   Byte; {0 = no, 1 = log entry,
  229.                                              2 = don't allow}
  230.                  NormalLongDesc:      Boolean;
  231.                  NodelistPath:        String[72];
  232.                  MinCrashMailSec:     Word;
  233.                  NoDorinfo1:          Boolean;
  234.                  NoTouch:             Boolean;
  235.                  ZoneMatching:        Boolean;
  236.                  strictdupecheck:     Boolean;
  237.                  noextendednodeinfo:  Boolean;
  238.                  Birthdayverify:      Byte;
  239.                  realmsgnumbers:      boolean;
  240.                  LocalAttachPath:     String[66];
  241.                  NoLACheckAtLogon:    Boolean;
  242.                  AllowedPackers:      Byte;
  243.                    {Bit 0 : ZIP
  244.                     Bit 1 : ARC
  245.                     Bit 2 : LZH
  246.                     Bit 3 : ARJ}
  247.                  BoardsFileToCurDir:  Boolean;
  248.                  UnLockPwd:           String[15];
  249.                  Resp7200,
  250.                  Resp12000,
  251.                  Resp14400:           String[40];
  252.                  LineEditorQuote:     Byte; {0=intelligent, 1=normal, 2=no}
  253.                  SevenBitOnly:        Boolean;
  254.                  nofileflagging:      boolean;
  255.                  ReplyingToStr:       String[80];
  256.                  FreeFileTimeCheck:   Byte; {0 = NO, 1 = YES, 2 = EVENT}
  257.                  PageReasonToSubj:    Boolean;
  258.                  AgeGraphStartAge:    Byte;
  259.                  ETGCLocalAttrib,
  260.                  ETGCRemoteAttrib:    word;  {Not yet used}
  261.                    {BIT 0 : 320x200x16
  262.                     BIT 1 : 640x200x16
  263.                     BIT 2 : 640x350x16
  264.                     BIT 3 : 640x480x16
  265.                     BIT 4 : 320x200x256}
  266.                  AskCombinedBoards:   Boolean;
  267.                  AskCombMailCheck:    Byte; {0=ask, 1=yes, 2=no}
  268.                  UseNewFilesCheckDate:Boolean;
  269.                  BurnOutSecs:         Word;
  270.                  NoNamesInGroupMail:  Boolean;
  271.                  AutoChatCapture:     Boolean;
  272.                  AskDefProto:         Boolean;
  273.                  AskHotkeys:          Byte; {0=ask, 1=yes, 2=no}
  274.                  FreeAttaches:        Boolean;
  275.                  LogonFlags:          Flagtype;
  276.                  NoRemoteSysOp:       Boolean;
  277.                  FscrReaderColors:    Array[1..12] of byte;
  278.                  NewsDateCheck:       Boolean;
  279.                  NoNameIdx:           Boolean;
  280.                  AkaZone,
  281.                  AkaNet,
  282.                  AkaNode,
  283.                  AkaPoint:            Array[1..15] of integer;
  284.                  MinorVersionNumber:  Byte; {ie. 1 = Gamma-1, 2 = Gamma-2
  285.                                              100 = official}
  286.                  Resp16800:           String[40];
  287.                  DlCounterDigits:     Byte;
  288.                  MultiWordNames:      Boolean;
  289.                  AllowCtrlKeysInMsgs: Boolean;
  290.                  NoChatTimeCredit:    Boolean;
  291.                  verifycity:          boolean;
  292.                  FilesBBSdatecheck:   boolean;
  293.                  Newuserpassword:     string[15];
  294.                  ShowRulesTimes:      byte;
  295.                  FilesBBSWrapPos:     Byte;
  296.                  AutoAddDlCounters:   boolean;
  297.                  ExtChatCmdLine:      string[79];
  298.                  ArqResp:             string[14];
  299.                  Arqrequired:         boolean;
  300.                  Extraspace:          Array[1..2547] of Byte;
  301.                End;
  302.  
  303.   Limitsrecord = Record                               (*  LIMITS.BBS  *)
  304.                    Security:           Word;
  305.                    Downlimit:          Array [1..7] of word;
  306.                    Timelimit:          Word;
  307.                    Ratiok:             Word;
  308.                    Ratio:              Word;
  309.                    Callsperday:        Byte;
  310.                    Description:        String[35];
  311.                    ExtraSpace:         Array [1..14] of byte;
  312.                  End;
  313.  
  314.   ExtraUserRec=Record                                 (*  SUSERS.BBS  *)
  315.                  Name:               MsgToIdxRecord;
  316.                  Birthday:           String[8];
  317.                  Attrib:             Word;
  318.                  Flags:              Array[1..4] of Byte; { Not yet used }
  319.                  Firsttime:          String[5];
  320.                  FirstDate:          String[8];
  321.                  CombinedBoards:     Array[1..25]  of Byte;
  322.                  SysOpComment:       String[79];
  323.                  DefaultProto:       Char;
  324.                  UserRecPtr:         Integer;
  325.                  Colors:             Array[1..10] of byte;
  326.                  FileListType:       Byte;                { Not yet used }
  327.                  Alias:              MsgToIdxRecord;
  328.                  MinutesUsed:        Longint;
  329.                  ViewFileName:       String[12]; { SeeAlso attrib bits 4 - 6 }
  330.                  MenuToRun:          String[8];
  331.                  Timeinbank:         Word;
  332.                  TodayCalls:         Byte;
  333.                  LanguageFileN:      String[8];  { *.LNG }
  334.                  Expirationdate:     String[8];
  335.                  CurrentFArea,
  336.                  CurrentMArea,
  337.                  CurrentDoor:        Byte;
  338.                  DefaultPacker:      Byte;
  339.                    {not bit mapped !
  340.                     1 = ZIP
  341.                     2 = ARC
  342.                     3 = LZH
  343.                     4 = ARJ}
  344.                  LastNewFilesCheck:  String[8];
  345.                  CallsSinceBverify:  Byte; {255 = verify failed}
  346.                  ExtraSpace:         Array[1..402] of Byte;
  347.                End;
  348.  
  349. (*  Attrib:
  350.  
  351. 1     Bit  0: MailCheck at logon
  352. 2     Bit  1: Newfiles Check at logon
  353. 4     Bit  2: No downloadratio
  354. 8     Bit  3: Female
  355. 16    Bit  4: Delete file after viewing
  356. 32    Bit  5: Display file only once
  357. 64    Bit  6: File viewed
  358. 128   Bit  7: Fullscreen viewer
  359. 256   Bit  8: Combined mail check
  360. 512   Bit  9: No hotkeys
  361.       Bit 10:
  362.       Bit 11:
  363.       Bit 12:
  364.       Bit 13:
  365.       Bit 14:
  366.       Bit 15:
  367. *)
  368.  
  369.   UserRecord = Record                                 (*  USERS.BBS   *)
  370.                  Name:               MsgToIdxRecord;
  371.                  City:               String[25];
  372.                  Password:           String[15];
  373.                  DataPhone,
  374.                  HomePhone:          String[12];
  375.                  LastTime:           String[5];
  376.                  LastDate:           String[8];
  377.                  Attrib:             Byte;
  378.                  Flags:              FlagType;
  379.                  Credit,
  380.                  Pending:            Integer;
  381.                  MsgsPosted,
  382.                  HighMsgRead,
  383.                  SecLvl,
  384.                  Times,
  385.                  Ups,
  386.                  Downs,
  387.                  UpK,
  388.                  DownK:              Word;
  389.                  TodayK:             Integer;
  390.                  Elapsed:            Integer;
  391.                  Len:                Integer;
  392.                  ExtraSpace1:        Array[1..2] of byte;
  393.                  Age:                Byte;
  394.                  ExtraUserrecPtr:    Integer;
  395.                  ExtraSpace2:        Array[1..3] of Byte;
  396.                End;
  397.  
  398. (*  Attrib:
  399.  
  400.       bit 0: Deleted user
  401.       bit 1: Screen clear codes
  402.       bit 2: More prompt
  403.       bit 3: ANSI graphics
  404.       bit 4: No-Kill
  405.       bit 5: Ignore Download Hours
  406.       bit 6: ANSI editor
  407.       bit 7: Do not disturb mode ON
  408.  
  409. *)
  410.  
  411.     NetNode    = Record
  412.                    Zone,
  413.                    Net,
  414.                    Node   : Word;
  415.                  end;
  416.  
  417.     NetAddress = record
  418.                    Zone,
  419.                    Net,
  420.                    Node,
  421.                    Point  : Word;
  422.                  end;
  423.  
  424.      InfoRecord = Record                              (* MSGINFO.BBS  *)
  425.                     LowMsg:      Integer;
  426.                     HighMsg:     Integer;
  427.                     TotalActive: Integer;
  428.  
  429.                     ActiveMsgs:  Array[1..200] of Integer;
  430.                   End;
  431.  
  432.       IdxRecord = Record                              (*  MSGIDX.BBS  *)
  433.                     MsgNum:       Integer;
  434.                     Board:        Byte;
  435.                   End;
  436.  
  437.           HdrRecord = Record                          (*  MSGHDR.BBS  *)
  438.                         MsgNum,
  439.                         ReplyTo,
  440.                         SeeAlsoNum,
  441.                         TimesRead:          Integer; { Not used }
  442.                         StartRec:           Word;
  443.                         NumRecs,
  444.                         DestNet,
  445.                         DestNode,
  446.                         OrigNet,
  447.                         OrigNode:           Integer;
  448.                         DestZone,
  449.                         OrigZone:           Byte;
  450.                         Cost:               Integer;
  451.                         MsgAttr,
  452.                         NetAttr,
  453.                         Board:              Byte;
  454.                         PostTime:           String[5];
  455.                         PostDate:           String[8];
  456.                         WhoTo,
  457.                         WhoFrom:            MsgToIdxRecord;
  458.                         Subj:               String[72];
  459.                       End;
  460.  
  461.  
  462. (* Msg Attributes:
  463.  
  464.       Bit 0: Deleted
  465.       Bit 1: Unsent net mail message
  466.       Bit 2: Net mail message
  467.       Bit 3: Private message
  468.       Bit 4: Received
  469.       Bit 5: Unsent echomail message
  470.       Bit 6: Local message
  471.       Bit 7: Not used
  472.  
  473.    Net Attributes:
  474.  
  475.       Bit 0: Kill after sent
  476.       Bit 1: Sent OK
  477.       Bit 2: File attach
  478.       Bit 3: Crash mail
  479.       Bit 4: Request Receipt
  480.       Bit 5: Audit Request
  481.       Bit 6: Is a Return Receipt
  482.       Bit 7: Not used
  483.  
  484. *)
  485.  
  486.  
  487.   SysInfoRecord = Record                              (* SYSINFO.BBS  *)
  488.                     CallCount:    LongInt;
  489.                     LastCaller:   MsgToIdxRecord;
  490.                     ExtraSpace:   Array[1..128] of Byte;
  491.                   End;
  492.  
  493.   TimeLogRecord = Record                              (* TIMELOG.BBS  *)
  494.                     StartDate:        String[8];
  495.                     BusyPerHour:      Array[0..23] of Integer;
  496.                     BusyPerDay:       Array[0..6] of Integer;
  497.                   End;
  498.      MenuRecord = Record                              (* ????????.MNU *)
  499.                     Typ:      Byte;
  500.                     Sec:      Integer;
  501.                     Flags:    FlagType;
  502.                     Str:      String[75];
  503.                     Key:      Char;
  504.                     Data:     String[80];
  505.                     Fg,
  506.                     Bg:       Byte;
  507.                   End;
  508.  
  509.       EventRecord = Record
  510.                       Status:       Byte; { 0=Disabled 1=Enabled }
  511.                       RunTime:      String[5];
  512.                       ErrorLevel:   Byte;
  513.                       Days:         Byte;
  514.                       Forced:       Boolean;
  515.                       LastTimeRun:  String[8];
  516.                     End;
  517.  
  518.       BoardRecord = Record
  519.                       Name:         String[16];
  520.                       Typ:          Byte; { 0=Standard 1=Net 3=Echo }
  521.                       Kinds:        Byte; { 0=Private & Public
  522.                                             1=Private 2=Public 3=Read-Only }
  523.                       Combined:     Boolean;
  524.                       Aliases:      Byte; {0=no aliases,1=yes,2=ask alias,3=Alias/name}
  525.  
  526.                       ReadSecLvl:   Integer;
  527.                       ReadFlags:    FlagType;
  528.  
  529.                       WriteSecLvl:  Integer;
  530.                       WriteFlags:   FlagType;
  531.  
  532.                       SysopSecLvl:  Integer;
  533.                       SysopFlags:   FlagType;
  534.                     End;
  535.  
  536.      ConfigRecord = Record                            (* CONFIG.BBS *)
  537.                       CommPort:      Integer;
  538.                       InitBaud,
  539.                       InitTimes,
  540.                       AnswerWait:    Word;
  541.                       ModemInitStr,
  542.                       ModemBusyStr:  String[70];
  543.                       ModemInitResp,
  544.                       ModemBusyResp,
  545.                       Resp300,
  546.                       Resp1200,
  547.                       Resp2400:      String[40];
  548.  
  549.                       MenuPath,
  550.                       TextPath,
  551.                       NetPath:      String[66];
  552.  
  553.                       MinBaud,
  554.                       GraphicsBaud,
  555.                       XferBaud:      Integer;
  556.                       LowBaudStart,
  557.                       LowBaudEnd,
  558.                       DownloadStart,
  559.                       DownloadEnd,
  560.                       PagingStart,              {!! Not used anymore !!}
  561.                       PagingEnd:     String[5]; {!! Not used anymore !!}
  562.  
  563.                       MatrixZone,
  564.                       MatrixNet,
  565.                       MatrixNode:    Integer;
  566.                       OldAkaNet,
  567.                       OldAkaNode:    Array[1..5] of Integer; {not used}
  568.                       NetMailBoard:  Integer;
  569.  
  570.                       DefaultSec:                Integer;
  571.                       DefaultCredit:             Integer;
  572.                       DefaultFlags:              FlagType;
  573.  
  574.                       EditorCmdStr:    String[70];
  575.                       OriginLine:      String[60];
  576.                       SysopName:       MsgToIdxRecord;
  577.                       AutoLogonChar,
  578.                       FastLogon,
  579.                       ScreenBlanking,
  580.                       UseLastRead,
  581.                       MonoMode,
  582.                       DirectWrite,
  583.                       SnowCheck,
  584.                       NetEchoExit,
  585.                       OneWordNames,
  586.                       CheckMail,
  587.                       AskHomePhone,
  588.                       AskDataPhone,
  589.                       GraphicsAvail:   Boolean;
  590.                       InactiveTimeOut: Integer;
  591.                       LogonTime:       Integer;
  592.                       DefFgColor:      Integer;
  593.                       DefBgColor:      Integer;
  594.                       PasswordTries:   Integer;
  595.                       MaxPageTimes:    Integer;
  596.                       PageBellLen:     Integer;
  597.  
  598.                       Use_Xmodem:      Boolean;
  599.                       Use_Xmodem1k:    Boolean;
  600.                       Use_Ymodem:      Boolean;
  601.                       Use_YmodemG:     Boolean;
  602.                       Use_Sealink:     Boolean;
  603.                       Use_Zmodem:      Boolean;
  604.                       Inp_Fields:      Boolean;
  605.                       QuoteStr:        String[3];
  606.                       UploadCredit:    Integer;
  607.                       LoadingMessage:  String[70];
  608.                       SelectionPrompt: String[70];
  609.  
  610.                       VersionID:       Word;
  611.                       Resp4800,
  612.                       Resp9600:        String[40];
  613.  
  614.                       OldAkaZone:      Array[1..5] of Integer; {not used}
  615.  
  616.                       MatrixPoint:     Integer;
  617.                       OldAkaPoint:     Array[1..5] of Integer; {not used}
  618.  
  619.                       OldUseAka:       Array[1..200] of Byte;  {not used}
  620.                       AskAge:          Boolean;         { Not used }
  621.                       SystemName:      String[40];
  622.                       RegKey:          Longint;
  623.  
  624.                       EntryfieldColor: Byte;
  625.                       MenuBorderColor: Byte;
  626.  
  627.                       SysOpSeclvl:     Integer;
  628.                       AllowDelMsgs:    Boolean;
  629.  
  630.                       EventRec:        Array[1..30] of EventRecord;
  631.                       UnusedBoards:    Array[1..200] of BoardRecord;
  632.                     End;
  633.  
  634.   GosubDataType = Array[1..20] of String[8];
  635.  
  636.   ExitRecord = Record                                 (* EXITINFO.BBS *)
  637.                  BaudRate:        Word;
  638.                  SysInfo:         SysInfoRecord;
  639.                  TimeLogInfo:     TimeLogRecord;
  640.                  UserInfo:        UserRecord;
  641.                  EventInfo:       EventRecord;
  642.                  NetMailEntered:  Boolean;
  643.                  EchoMailEntered: Boolean;
  644.                  LoginTime:       String[5];
  645.                  LoginDate:       String[8];
  646.                  TmLimit:         Integer;
  647.                  LoginSec:        LongInt;
  648.                  Credit:          LongInt;
  649.                  UserRecNum:      Integer;
  650.                  ReadThru:        Integer;
  651.                  PageTimes:       Integer;
  652.                  DownLimit:       Integer;
  653.                  WantChat:        Boolean;
  654.                  GosubLevel:      Byte;
  655.                  GosubData:       GosubDataType;
  656.                  Menu:            String[8];
  657.                End;
  658.  
  659.                ProtocolRecord = Record                (* SPROTO.BBS *)
  660.                  Name            : String[15];
  661.                  Key             : Char;
  662.                  LogFileType     : Byte; { 0=OTHER,1=ICOM,2=DSZ}
  663.                  ProtocolType    : Byte; { 0=other,1=opus,2=BIMODEM}
  664.                  MaxFiles,
  665.                  Effic,
  666.                  Attribute       : Byte;
  667.                  { Bit 0: Actived
  668.                    Bit 1: Batch
  669.                    Bit 2: FullDuplex (Check for uploads)
  670.                  }
  671.                  DnCmdString,
  672.                  UpCmdString     : String[127];
  673.                  LogFileName,
  674.                  CtlFileName     : String[66];
  675.                  UpLogKeyword,
  676.                  DnLogKeyword    : String[20];
  677.                  NameWordNr      : Byte;
  678.                  DnCtlString,
  679.                  UpCtlString     : String[60];
  680.                  ExtraSpace      : Array[1..64] of byte;
  681.                end;
  682.  
  683.                ProtocolPtr    = Array[1..20] of ProtocolRecord;
  684.  
  685.                MsgBoardRecord = Record                (* BOARDS.BBS *)
  686.                                   Name:         String[30];
  687.                                   QwkName:      String[12];
  688.  
  689.                                   Typ:          Byte; { 0=Standard 1=Net 3=Echo }
  690.                                   Kinds:        Byte; { 0=Private & Public
  691.                                                         1=Private 2=Public 3=Read-Only}
  692.                                   Aliases:      Byte; {0=no aliases,1=yes,2=ask alias,
  693.                                                        3=Alias/name}
  694.  
  695.                                   ReadSecLvl:   Integer;
  696.                                   ReadFlags:    FlagType;
  697.  
  698.                                   WriteSecLvl:  Integer;
  699.                                   WriteFlags:   FlagType;
  700.  
  701.                                   SysopSecLvl:  Integer;
  702.                                   SysopFlags:   FlagType;
  703.  
  704.                                   Group:        Char;
  705.                                   Replystatus:  byte; {0 = normal, 1 = net/normal
  706.                                                        2 = net only, 3 = no replies}
  707.                                   Age:          Byte;
  708.                                   Attrib:       Byte;
  709.                                   UseAka:       Byte;
  710.  
  711.                                 End;
  712.  
  713.                (*
  714.                   Attributes :
  715.  
  716.                   bit 0 : Combined
  717.                   bit 1 : Default combined
  718.                   bit 2 : Allow message deleting
  719.                   bit 3 : Allow taglines
  720.                   bit 4 : Use in template system
  721.                   bit 5 : Convert 8bit -> 7bit
  722.                   bit 6 : forced ON in the mail check
  723.                *)
  724.  
  725.   LanguageRecord = Record
  726.       VersionNr:                Word;
  727.       Description:              String[227]; (* ie. SF - Suomi / Finnish *)
  728.       InputFieldDateFormat:     String[8];
  729.       DateFormat:               String[9];
  730.       TimeFormat:               String[8];
  731.       AnsiFilesPath:            String[79];
  732.       MenuFilesPath:            String[79];
  733.  
  734.       (*    Logon strings    *)
  735.  
  736.       AskAnsiLogon:             String[50];
  737.       AskNameStr:               String[40];
  738.       NameEnteredStr:           String[40];
  739.       AskCorrectStr:            String[60];
  740.       AskAliasStr:              String[40];
  741.       AskUseAliasStr:           String[60];
  742.       AskCityStr:               String[50];
  743.       AskSexStr:                String[60];
  744.       MaleChar,
  745.       FemaleChar:               Char;
  746.       AskAnsiGraphicsStr,
  747.       AskMailCheckStr,
  748.       AskNewFileCheckStr,
  749.       AskEditorStr,
  750.       AskScreenLenStr,
  751.       AskBirthDayStr,
  752.       AskPagePausingStr,
  753.       AskScreenClearStr,
  754.       AskHomePhoneStr,
  755.       AskDataPhoneStr,
  756.       AskNewPswdStr,
  757.       AskCheckPswdStr,
  758.       AskIfCorrectStr,
  759.       AskPasswordAtlogon,
  760.       MailCheckStr,
  761.       MailCheckSorryStr,
  762.       AskReadMessagesStr:       String[60];
  763.       AskPswdFailureMsgStr:     String[60];
  764.       AskFullScrReaderStr:      String[60];
  765.       ExtraSpace1:              Array[1..183] of byte;
  766.  
  767.       (*    Messagebase strings     *)
  768.  
  769.       BoardInfoStr1,
  770.       BoardInfoStr2,
  771.       AskStartNumberStr,
  772.       AskPauseAfterEachStr,
  773.       AskAreYouSureStr,
  774.       EndofrepliesStr,
  775.       EndOfMessagesStr,
  776.       AskPrivateMsgStr,
  777.       AskUseAliasInMsgs,
  778.       MessageAbortedStr,
  779.       AskJumpNumberStr,
  780.       InvalidMsgNumberStr,
  781.       ChooseMsgAreaStr,
  782.       MessageToAllStr:          String[60];
  783.       AskWhoToStr:              String[40];
  784.       AskSubjectStr:            String[9];
  785.       AskAliasInmsgs:           String[40];
  786.       NameNotFoundStr:          String[60];
  787.       NoWriteSecurityStr:       String[60];
  788.       ShowNewAreasStr:          String[60];
  789.       NoNewMessagesStr:         String[60];
  790.       AskHowManyLatestStr:      String[60];
  791.       ShowNewMsgsNewStr:        String[20];
  792.       ShowNewMsgsToYouStr:      String[20];
  793.       Received1Str,
  794.       Received2Str,
  795.       KillSentStr,
  796.       MsgPrivateStr,
  797.       MsgPublicStr,
  798.       FilesAttachedStr,
  799.       SentOKStr,
  800.       CrashMailStr,
  801.       ToFieldStr,
  802.       FromFieldStr,
  803.       SubjFieldStr,
  804.       DateFieldStr:             String[20];
  805.       ExtraSpace2:              Array[1..11] of byte;
  806.  
  807.       (*    Filearea strings    *)
  808.  
  809.       AskFileMaskStr,
  810.       AskBatchFilenamesStr,
  811.       AskFilenameStr:           String[60];
  812.       AskKeySearchStr:          String[40];
  813.       AskFnameSearchStr,
  814.       AskNewFileSearchStr,
  815.       AskNewFSearchDateStr,
  816.       ChooseFileAreaStr,
  817.       AskFilesToPackStr,
  818.       FileNotFoundStr,
  819.       AskFilesToDelStr:         String[60];
  820.       AskFilesToUpldStr:        String[60];
  821.       TransferInfoStr1:         String[80];
  822.       TransferInfoStr2:         String[70];
  823.       PleaseDescribeStr1:       String[30];
  824.  
  825.       (*   Other Strings    *)
  826.  
  827.       MonthStr:                 Array [1..12] of String[10];
  828.       ShortWeekDay:             Array [0..6] of String[10];
  829.       LongWeekDay:              Array [0..6] of String[20];
  830.       PressEnterStr,
  831.       PressSorPStr,
  832.       PleaseWaitStr:            String[60];
  833.       YesOrNoStr:               String[6];
  834.       YesChar,
  835.       NoChar:                   Char;
  836.       ReasonForChatStr:         String[17];
  837.       ChatStartStr1,
  838.       ChatStartStr2,
  839.       ChatEndStr,
  840.       DosShellStr1,
  841.       DosShellStr2,
  842.       UpdateStr1,
  843.       UpdateStr2,
  844.       FullPhoneNrMsg,
  845.       PswdNotChangedMsg,
  846.       AskCurrentPswdStr:        String[60];
  847.       CurrentAliasStr:          String[40];
  848.       CombinedStr1,
  849.       CombinedStr2:             String[60];
  850.       AskUserSearchStr,
  851.       AskAliasSearchStr:        String[60];
  852.       MoreStr:                  String[40];
  853.       MoreYesChar,
  854.       MoreNoChar:               Char;
  855.       InactivityStr,
  856.       InactivityWarningStr,
  857.       TimeLeftWarningStr,
  858.       TimeLimitExceededStr,
  859.       AliasInUseStr,
  860.       InvalidScrLenStr,
  861.       ShortPswdStr,
  862.       PswdCheckFailedStr,
  863.       PswdChangedStr,
  864.       WrongStr:                 String[60];
  865.       YesStr,
  866.       NoStr:                    String[10];
  867.       AskEnterMsgToSysOpStr:    String[60];
  868.       NoDwnldsFromAreaStr,
  869.       NoUpldsToAreaStr:         String[60];
  870.       AskLineNumberStr:         String[60];
  871.       FullScrChatHelpStr:       String[80];
  872.       PleaseDescribeStr2:       String[30];
  873.       PleaseDescribeStr3:       String[70];
  874.       PleaseDescribeStr4:       String[60];
  875.       DescTooShortStr:          String[60];
  876.       FileExistsStr:            String[60];
  877.       FileContainsVirusStr:     String[60];
  878.       FileNotReceivedStr:       String[60];
  879.       MinutesInBankStr,
  880.       TimeLeftStr:              String[60];
  881.       DepositAskStr:            String[60];
  882.       WithDrawAskStr:           String[60];
  883.       YouCanDepositStr:         String[60];
  884.       FileNotWantedStr:         String[60];
  885.       FilesRcvdStr:             String[60];
  886.       FilesSentStr:             String[60];
  887.       NoFilesFoundStr:          String[60];
  888.       NotEnoughTimeStr:         String[60];
  889.       AskPwdForFileStr1:        String[70];
  890.       AskPwdForFileStr2:        String[70];
  891.       AskMsgAfterPageStr:       String[60];
  892.       CommentToNextUserStr:     String[60];
  893.       AskSaveCommentStr:        String[60];
  894.       SelectFileAreaStr1:       String[60];
  895.       SelectFileAreaStr2:       String[60];
  896.       AskVirusChkFileStr:       String[60];
  897.       OnStr,
  898.       OffStr:                   String[20];
  899.       ScreenClearStr,
  900.       MoreStatStr,
  901.       AnsiStr,
  902.       AnsiEditorStr,
  903.       MailCheckStatStr,
  904.       NewFilesCheckStatStr,
  905.       DisturbmodeStr,
  906.       FullScrViewerStr:         String[60];
  907.       AvailableStr,
  908.       UnavailableStr:           String[20];
  909.       CurrentTimeStr,
  910.       CurrentDateStr,
  911.       ConnectTimeStr,
  912.       TimeUsedStr,
  913.       TimeRemainingStr,
  914.       CallLimitStr:             String[45];
  915.       AliasListTopStr:          String[78];
  916.       MsgReaderHeaderStr:       String[60];
  917.       FilesFieldStr:            String[20];
  918.       MsgNextReplyStr,
  919.       MsgPrevReplyStr,
  920.       MsgQuitRepliesStr,
  921.       MsgAgainStr,
  922.       MsgNextStr,
  923.       MsgBackStr,
  924.       MsgJumpStr,
  925.       MsgReplyStr,
  926.       MsgWriteStr,
  927.       MsgDeleteStr,
  928.       MsgKeepStr,
  929.       MsgCopyStr,
  930.       MsgXportStr,
  931.       MsgEditStr,
  932.       MsgTogglePrivateStr,
  933.       MsgUpdateUserStr,
  934.       MsgStopStr:               String[25];
  935.       UsageGraphInfoStr:        String[60];
  936.       BBSListNameStr,
  937.       BBSListPhoneStr,
  938.       BBSListMaxBPSStr,
  939.       BBSListOpenTimesStr,
  940.       BBSListSoftwareStr,
  941.       BBSListNetaddrStr,
  942.       BBSListSysopStr,
  943.       BBSListOtherStr:          String[15];
  944.       AskBBSToDeleteStr:        String[35];
  945.       FileOfflineStr:           String[18];
  946.       Status0Str,
  947.       Status1Str,
  948.       Status2Str,
  949.       Status3Str,
  950.       Status4Str,
  951.       Status5Str,
  952.       Status6Str,
  953.       Status7Str:               String[36];
  954. {             0 : 'Doing nothing special'
  955.               1 : 'Downloading file(s)'
  956.               2 : 'Uploading file(s'
  957.               3 : 'Reading messages'
  958.               4 : 'Writing message'
  959.               5 : 'Chatting with SysOp'
  960.               6 : 'Using external program'
  961.               7 : 'Logging on'
  962. }
  963.       TimeinBankStr:            String[45];
  964.       OptionNotAvailableStr,
  965.       ChooseDoorStr,
  966.       TooYoungStr,
  967.       QwkRepNotFound,
  968.       QwkAskQwkFormat,
  969.       QwkLimitReached,
  970.       QwkMessagesExported,
  971.       QwkPackingMessages,
  972.       QwkNoNewMessages,
  973.       QwkMessageMoved,
  974.       QwkDoYouWantToUpld,
  975.       QwkMaxNrToPackQ,
  976.       ScanningForDupePhoneStr:  String[60];
  977.       CallOrEventStr,
  978.       downstr:                  String[36];
  979.       NoReadAccess,
  980.       NoNewMessagesinArea,
  981.       JumpingToArea:            String[60];
  982.       MsgJumpToNextArea:        String[25];
  983.       QWKUpdPointers:           String[60];
  984.       QwkChoosePacker:          String[60];
  985.       Status8Str:               String[36];
  986. {             8 : 'Using QWK system' }
  987.       ChooseMsgAreaStr2:        String[60];
  988.       AgeGraphTopStr:           String[60];
  989.       QwkPackerSelected:        String[60];
  990.       MoreContinuousChar:       Char;
  991.       NoRepliesToAreaStr:       String[60];
  992.       MoreStr2:                 String[60];
  993.       MoreFlagChar:             Char;
  994.       FilesTaggedStr:           String[60];
  995.       TagDlLimitExceededStr:    String[60];
  996.       WildCardsNotValidStr:     String[60];
  997.       AskFileToFlagStr:         String[60];
  998.       AskCombinedMailCheckStr:  String[60];
  999.       CombMailCheckStatusStr:   String[60];
  1000.       HotKeysStatusStr:         String[60];
  1001.       AskHotKeysStr:            String[60];
  1002.       DownloadFlaggedStr:       String[60];
  1003.       RemoveFlaggedStr:         String[60];
  1004.       MoreViewArchiveChar:      Char;
  1005.       Status9Str:               String[36];
  1006.       Status10Str:              String[36];
  1007. {             9 : 'Browsing filelist'
  1008.              10 : 'In nodehcat'       }
  1009.       readcommentStr:           String[60];
  1010.       CommentLeftStr:           String[60];
  1011.       LeaveCommentQues:         String[60];
  1012.       RemoveCommentQues:        String[60];
  1013.       CommentRemovedStr:        String[60];
  1014.       DownLoadMoreFilesQues:    String[60];
  1015.       QwkMessageReceived:       String[60];
  1016.       Availlanguagesstr:        string[60];
  1017.       Chooselanguagestr:        string[60];
  1018.       UsingLanguageStr:         String[60];
  1019.       VerifyCityStr:            String[40];
  1020.       ExtNotAllowedStr:         string[60];
  1021.     End;
  1022.  
  1023.